   1 .
   2 .
   3 .THE PITS
   4 .BY REX GOULDING    
   5 &(9)=167;&(11)=249;&(1)=249;FC=249;BC=119
  10 clear 
  17 print 
  18 print "    THE PITS!"
  19 print 
  20 print "ENTER NAME, THEN PRESS GO"
  30 N=0
  40 for A=1to 10
  50 B=KP
  60 if B=13goto 110
  70 TV=B
  80 N=N+1
  90 @(A)=B
 100 next A
 110 clear 
 115 print 
 120 print "THANK YOU ",
 130 for A=1to N
 140 TV=@(A)
 150 next A
 160 for A=1to 152
 165 next A
 170 clear 
 200 X=-76;Y=26
 210 C=0
 220 for A=1to 100
 230 box 75-rnd (145),41-rnd (77),7,7,1
 240 next A
 243 print "BEGIN"
 244 box X,Y,1,1,3
 246 box 72,-42,3,3,3
 247 CX=-77;CY=-40
 250 if JX(1)goto 270
 255 if JY(1)goto 270
 260 goto 250
 270 print 
 275 box 72,-34,3,3,3
 280 box 72,-42,3,3,3
 290 Y=Y+8
 295 box 76,0,1,80,1
 300 for A=1to 10
 310 box 75-rnd (145),-27-rnd (8),7,7,1
 320 box X,Y,1,1,3
 330 X=X+JX(1)mul 2;Y=Y+JY(1)mul 2
 340 box X,Y,1,1,3
 350 if PX(X,Y)=0goto 410
 360 MU="1"
 370 next A
 380 C=C+1
 400 goto 270
 410 if X=72if Y=-42goto 560
 420 for A=1to 10
 430 &(23)=255;&(21)=255
 440 BC=40
 450 next A
 460 for A=1to 30
 470 BC=55
 480 next A
 490 &(23)=0;&(21)=0
 500 BC=119
 510 print "YOU BLEW IT ",
 520 for A=1to N
 530 TV=@(A)
 540 next A
 550 goto 620
 560 print "YOU WON ",
 570 for A=1to N
 580 TV=@(A)
 590 next A
 600 print C," MOVES"
 610 if C<16print "GOOD WORK !!!"
 620 print 
 630 print "PLAY AGAIN? (PULL TRIGGER)"
 640 for A=1to 150
 650 if TR(1)goto 110
 660 next A
 670 print "NEW PLAYER? (PULL TRIGGER)"
 680 for A=1to 150
 690 if TR(1)clear ;goto 17
 700 next A
 710 print "SO LONG for NOW
:return 